<!--
Script for downloading all links in IE window
Copyright (c) 2004-2007, FreeDownloadManager.ORG.
-->
<script language="VBScript">
	On Error Resume Next
	set obj = CreateObject ("WG.WGUrlListReceiver" )
	if err<>0 then
		Alert("Free Download Manager not properly installed! Please reinstall Free Download Manager")
	else
        	set links = external.menuArguments.document.links
        	set imags = external.menuArguments.document.images
		
		obj.Referer = external.menuArguments.document.Url
		obj.Cookies = external.menuArguments.document.cookie

		for i = 0 to links.length - 1
			obj.Url = links(i).href
			obj.Comment = links(i).innerText	
			obj.AddUrlToList
		next 

                for i = 0 to imags.length - 1
			obj.Url = imags(i).href
			obj.Comment = imags(i).Alt	
			obj.AddUrlToList
		next 

		obj.ShowAddUrlListDialog
        end if
</script>